unit UCreditoCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UFomCadastro, DBCtrls, StdCtrls, Buttons, ExtCtrls, DB,
  DBTables, Mask, ToolEdit, CurrEdit, RXDBCtrl, DBClient, Provider, Menus,
  ComCtrls, Grids, DBGrids;

type
  TFCreditoCliente = class(TFormCadastro)
    Panel4: TPanel;
    Label11: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    DBText4: TDBText;
    DBText7: TDBText;
    DBText6: TDBText;
    Label13: TLabel;
    DBText5: TDBText;
    QCliente: TQuery;
    DsCliente: TDataSource;
    GBCredito: TGroupBox;
    Label39: TLabel;
    RxDBCLimiteCredito: TRxDBCalcEdit;
    Label1: TLabel;
    DBDData: TDBDateEdit;
    GroupBox1: TGroupBox;
    Label40: TLabel;
    RxDBCCredito: TRxDBCalcEdit;
    gbSituacaoCredito: TDBRadioGroup;
    Label2: TLabel;
    DBMObsLimite: TDBMemo;
    cdsCadastroCLI_CODIGO: TIntegerField;
    cdsCadastroCLI_RAZAO: TStringField;
    cdsCadastroCLI_FANTASIA: TStringField;
    cdsCadastroCLI_TIPOCLIENTE: TStringField;
    cdsCadastroCLI_CPFCNPJ: TStringField;
    cdsCadastroCLI_INSCESTADUAL: TStringField;
    cdsCadastroCLI_INSCMUNICIPAL: TStringField;
    cdsCadastroCLI_FONE: TStringField;
    cdsCadastroCLI_FAX: TStringField;
    cdsCadastroCLI_EMAIL: TStringField;
    cdsCadastroCLI_IDENTENDCORRESP: TStringField;
    cdsCadastroCLI_IDENTENDPEDIDO: TStringField;
    cdsCadastroCLI_IDENTENDDUPLICATA: TStringField;
    cdsCadastroCLI_IDENTENDNF: TStringField;
    cdsCadastroCLI_IDENTENDBLOQUETE: TStringField;
    cdsCadastroCLI_ENDERECOCORRESP: TStringField;
    cdsCadastroCLI_BAIRROCORRESP: TStringField;
    cdsCadastroCLI_CEPCORRESP: TStringField;
    cdsCadastroCLI_CIDADECORRESP: TStringField;
    cdsCadastroCLI_ESTADOCORRESP: TStringField;
    cdsCadastroCLI_ENDERECOPEDIDO: TStringField;
    cdsCadastroCLI_BAIRROPEDIDO: TStringField;
    cdsCadastroCLI_CEPPEDIDO: TStringField;
    cdsCadastroCLI_CIDADEPEDIDO: TStringField;
    cdsCadastroCLI_ESTADOPEDIDO: TStringField;
    cdsCadastroCLI_VENDEDOR: TIntegerField;
    cdsCadastroCLI_OBS: TStringField;
    cdsCadastroUSUARIO: TStringField;
    cdsCadastroDATAMODIFICACAO: TDateTimeField;
    cdsCadastroCLI_CONTATO: TStringField;
    cdsCadastroCLI_CONTACONTABIL: TIntegerField;
    cdsCadastroCLI_SITUACAO: TSmallintField;
    cdsCadastroCLI_PERCIRRF: TFloatField;
    cdsCadastroCLI_PERCISS: TFloatField;
    cdsCadastroCLI_PERCPIS: TFloatField;
    cdsCadastroCLI_PERCCOFINS: TFloatField;
    cdsCadastroCLI_PERCCSLL: TFloatField;
    cdsCadastroCLI_PERCINSS: TFloatField;
    cdsCadastroCLI_RETEMISS: TSmallintField;
    cdsCadastroCLI_GRUPO: TStringField;
    cdsCadastroCLI_CODIGO_LOGISTICA: TIntegerField;
    cdsCadastroCLI_CENTROCUSTO: TIntegerField;
    cdsCadastroCLI_CLASSIFICACAO: TIntegerField;
    cdsCadastroHIDROMETRO_LOGISITICA: TIntegerField;
    cdsCadastroCLI_RETEMINSS: TSmallintField;
    cdsCadastroCLI_RETEMIRRF: TSmallintField;
    cdsCadastroCLI_RETEMPIS: TSmallintField;
    cdsCadastroCLI_RETEMCOFINS: TSmallintField;
    cdsCadastroCLI_RETEMCSLL: TSmallintField;
    cdsCadastroCLI_TIPOVENDA: TIntegerField;
    cdsCadastroCLI_FK_GRUPO: TIntegerField;
    cdsCadastroCLI_CV: TFloatField;
    cdsCadastroCLI_SITUACAO_CREDITO: TStringField;
    cdsCadastroCLI_VALOR_LIMITE: TFloatField;
    cdsCadastroCLI_VALOR_CREDITO: TFloatField;
    cdsCadastroCLI_DATA_LIMITE: TDateTimeField;
    cdsCadastroCLI_OBS_LIMITE: TStringField;
    cdsCadastroCLI_TRAVAPEDIDO: TStringField;
    cdsCadastroCLI_CODIGO_CONFERENCIA: TIntegerField;
    cdsCadastroUSUARIO_CADASTRO: TStringField;
    cdsCadastroUSUARIO_AUTERACAO: TStringField;
    cdsCadastroUSUARIO_EXCLUSAO: TStringField;
    cdsCadastroDATA_CADASTRO: TDateTimeField;
    cdsCadastroDATA_EXCLUSAO: TDateTimeField;
    cdsCadastroDATA_AUTERACAO: TDateTimeField;
    cdsCadastroEXCLUIDO: TStringField;
    cdsCadastroUSUARIO_RECUPERACAO: TStringField;
    cdsCadastroDATA_RECUPERACAO: TDateTimeField;
    cdsCadastroCLI_TIPO_ENDERECO_CORRESP: TStringField;
    cdsCadastroCLI_NUMERO_ENDERECO_CORRESP: TStringField;
    cdsCadastroCLI_TIPO_ENDERECO_PEDIDO: TStringField;
    cdsCadastroCLI_NUMERO_ENDERECO_PEDIDO: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure BtnEditarClick(Sender: TObject);
    procedure BtnSalvarClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnConsutaClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DsClienteStateChange(Sender: TObject);
    procedure BtnExcluirClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FCreditoCliente: TFCreditoCliente;

implementation

uses UPesquisaRapida, UGestao, UGeral;

{$R *.dfm}

procedure TFCreditoCliente.FormCreate(Sender: TObject);
begin
  inherited;
  DsCliente.DataSet.Open;
end;

procedure TFCreditoCliente.BtnEditarClick(Sender: TObject);
begin
  if cdsCadastro.IsEmpty then
  begin
    ShowMessage('Tabela esta vazia !');
    exit;
  end;

  inherited;
  RxDBCCredito.Enabled := false;
  
end;

procedure TFCreditoCliente.BtnSalvarClick(Sender: TObject);
begin

  If DBDData.Date = 0 then
  begin
    DBDData.Date := now;
  end;

  If RxDBCLimiteCredito.Text = '' then
  Begin
    RxDBCLimiteCredito.Text := '0';
  end;

  dsCadastro.DataSet.FieldByName('CLI_SITUACAO_CREDITO').AsString;

  inherited;

end;

procedure TFCreditoCliente.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  FCreditoCliente := nil;
  Action := caFree;
end;

procedure TFCreditoCliente.BtnConsutaClick(Sender: TObject);
begin
  inherited;

   Application.CreateForm(TFPesquisaRapida,FPesquisaRapida);

  FPesquisaRapida.tipo    := 'CLIENTE';
  CaPtUrA_pEsQuIsA_rApIdA := '';

  FPesquisaRapida.ShowModal;

  if CaPtUrA_pEsQuIsA_rApIdA <> '' then
    QCliente.Locate('CLI_CODIGO',CaPtUrA_pEsQuIsA_rApIdA,[]);

  CaPtUrA_pEsQuIsA_rApIdA := '';

  Exit;

end;

procedure TFCreditoCliente.FormShow(Sender: TObject);
begin
  inherited;
  SELF.Constraints.MaxWidth := 860;
  SELF.Constraints.MINWidth := 860;

  IF panel3.Visible then
  begin

    SELF.Constraints.MaxHeight := 549;
    SELF.Constraints.MinHeight := 549;
    exit;

  end;

  SELF.Constraints.MaxHeight := 549;
  SELF.Constraints.MinHeight := 549;

end;

procedure TFCreditoCliente.DsClienteStateChange(Sender: TObject);
begin
  inherited;
//  gbSituacaoCredito.ReadOnly := DsCliente.DataSet.State in [dsbrowse];
end;

procedure TFCreditoCliente.BtnExcluirClick(Sender: TObject);
begin
  if cdsCadastro.IsEmpty then
  begin
    ShowMessage('Tabela esta vazia !');
    exit;
  end;

  inherited;

end;

end.
